home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 20
/
Cream of the Crop 20 (Terry Blount) (1996).iso
/
program
/
n_b_v203.zip
/
INS_MSG.DMO
< prev
next >
Wrap
Text File
|
1996-07-04
|
2KB
|
48 lines
$if 0
┌──────────────────────────╖ PowerBASIC v3.20
┌──┤ DASoft ╟──────────────────────┬──────────────────╖
│ ├──────────────────────────╢ Copyright 1995 │ DATE: 1995-10-01 ╟─╖
│ │ FILE NAME INS_MSG .DMO ║ by ╘════════════════─ ║ ║
│ │ ║ Don Schullian, Jr. ║ ║
│ ╘══════════════════════════╝ ║ ║
│ A license is hereby granted to the holder to use this source code in ║ ║
│ any program, commercial or otherwise, without receiving the express ║ ║
│ permission of the copyright holder and without paying any royalties, ║ ║
│ as long as this code is not distributed in any compilable format. ║ ║
│ IE: source code files, PowerBASIC Unit files, and printed listings ║ ║
╘═╤═════════════════════════════════════════════════════════════════════╝ ║
│ .................................... ║
╘═══════════════════════════════════════════════════════════════════════╝
$endif
$INCLUDE "DAS-NB01.INC"
$INCLUDE "DAS-NBT1.INC"
$INCLUDE "KEYCODES.INC"
COLOR 7, 0
CLS
? "┌────────────────────────────────────────────────────────────────────────
? "│ SetINSERTmsg ( OnMsg$, OffMsg$, Row?, Col? )
? "│ fINSERTmsg% ()
? "├─────────────────────────────────────────────────────────────────────────────
? "│ Once you have set the local variables by calling SetINSERTmsg each successive
? "│ call to fINSERTmsg will print the appropriate message to the screen at the
? "│ given address after checking the current state of the <INS> key. If it is on
? "│ the function will return a TRUE value.
? "│ NOTE: the color attribute(s) for the messages should be embedded in the
? "│ message strings else the screen's attribute will be used.
? "└─────────────────────────────────────────────────────────────────────────────
OnMsg$ = " INSERT ON "
OffMsg$ = " INSERT OFF "
Tprint 25, 62, "PRESS <îESC> TO END", 14
SetINSERTmsg OnMsg$, OffMsg$, 25, 1
InsertOn% = fINSERTmsg%
Tprint 15, 23, "PRESS <ÄINS> TO ACTIVATE THE MESSAGE.", 11
DO
G% = fAnyKey%
IF G% = %INS_key THEN InsertOn% = fINSERTmsg%
LOOP UNTIL G% = %ESC_key
CLS